!name: bifdoor_panel_E   29.06.1989.
!internel macro: pattern_

pars width, height,spacing
W=(B-D-16")/9
PRISM_ 20,C,
0,0,15,
A,0,15,
A,B,15,
0,B,15,
O,O,-1,
2",4",15,
A-2",4",15,
A-2",4"+W*4,15,
2",4"+W*4,15,
2",4",-1,
2",8"+W*4,15,
A-2",8"+W*4,15,
A-2",8"+W*8,15,
2",8"+W*8,15,
2",8"+W*4,-1,
2",12"+W*8,15,
A-2",12"+W*8,15,
A-2",12"+W*9,15,
2",12"+W*9,15,
2",12"+W*8,-1

addx 2"
addy 4"
addz C/2-1/4"
BLOCK a-4",W*4,1/2"
addx 1"
addy 1"
addz -3/8"

pattern_ a-6",W*4-2",0.05
del 4

addy 4"+W*4
addz C/2-1/4"
BLOCK a-4",W*4,1/2"
addx 1"
addy 1"
addz -3/8"

pattern_ a-6",W*4-2",0.05
del 4 

addy 4"+W*4
addz C/2-1/4"
BLOCK a-4",W,1/2"
addx 1"
addy 1"
addz -3/8"

pattern_ a-6",W-2",0.05
del 4 
end
